home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / exe34 < prev    next >
Text File  |  2007-02-28  |  124b  |  6 lines
  1. 0010 QUANTITY:=20; PRICE:=35
  2. 0020 PCTVAT:=25
  3. 0030 AMOUNT:=QUANTITY*PRICE
  4. 0040 VAT:=AMOUNT*PCTVAT/100
  5. 0050 TOTAL:=AMOUNT+VAT
  6.